home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Scriptable Authoring.dir / Scripts_12_Selection of Costumes, Band, and Float.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  606 b   |  23 lines
  1. global gCurrentCastLib, gFloatName, gBandName
  2.  
  3. on SetCastLib whichNumber
  4.   if (whichNumber < 1) or (whichNumber > 2) then
  5.     exit
  6.   end if
  7.   set the fileName of castLib "Costume Set" to the pathName & "ScriptAuthor-Set" & whichNumber
  8.   set gCurrentCastLib to "ScriptAuthor-Set" & whichNumber
  9.   DisplayCurrentCastLib()
  10. end
  11.  
  12. on DisplayCurrentCastLib
  13.   set the text of member "gCurrentCastLib Field" to gCurrentCastLib
  14. end
  15.  
  16. on DisplayCurrentFloat
  17.   set the text of member "gFloatName Field" to string(gFloatName)
  18. end
  19.  
  20. on DisplayCurrentBand
  21.   set the text of member "gBandName Field" to string(gBandName)
  22. end
  23.